home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Python1.4_Source / Amiga / Python_netlib / ftruncate.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-06-24  |  453 b   |  29 lines
  1. #include <errno.h>
  2. #include <ios1.h>
  3. #include <fcntl.h>
  4. #include <dos.h>
  5. #include <dos/dos.h>
  6. #include <proto/dos.h>
  7. #include "netlib.h"
  8.  
  9. int ftruncate(int fd, long newlength)
  10. {
  11.   struct UFB *ufb;
  12.  
  13.   /*
  14.    * find the ufb *
  15.    */
  16.   if ((ufb = __chkufb(fd)) != NULL && !(ufb->ufbflg & UFB_SOCK))
  17.   {
  18.     if(-1==SetFileSize(ufb->ufbfh,newlength,OFFSET_BEGINNING))
  19.     {
  20.         set_errno(IoErr());
  21.         return -1;
  22.     }
  23.     return 0;
  24.   }
  25.   
  26.   errno = EINVAL;
  27.   return -1;
  28. }
  29.